subroutine outputTec
use var
implicit none

    character(len=20)string
    integer i
    
    
        write(string,'(a3,i6.6,a4)')'tec',Tstep,'.plt'
        open(unit=100,file=trim(adjustl(string)))    
        write(100,*) 'variables="x","d(x)","u(x)","p(x)","c(x)","q(x,1)","q(x,2)","q(x,3)"'
        write(100,*) 'zone I=',gridsx,'F=Point'
        write(100,*) 'solutionTime=',tt
        do i=1,gridsx
            write(100,"(7(1xd20.10))")x(i),d(i),u(i),p(i),c(i),q(i,1:3)
        end do
        close(100)
    
    

end subroutine 